Profile of (eval 401)[Sub/Quote.pm:3]

Filename	(eval 401)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 10 statements in 123µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	10µs	33µs	OpenAPI::Modern::::BEGIN@5 OpenAPI::Modern::BEGIN@5
1	1	1	7µs	7µs	Method::Generate::Accessor::_Generated::BEGIN@10.263
0	0	0	0s	0s	OpenAPI::Modern::::openapi_document OpenAPI::Modern::openapi_document

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	1µs			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
3	1	1µs			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
4					package OpenAPI::Modern;
5	2	58µs	2	56µs	# spent 33µs (10+23) within OpenAPI::Modern::BEGIN@5 which was called: # once (10µs+23µs) by Sub::Quote::_clean_eval at line 5 no warnings 'closure'; # spent 33µs making 1 call to OpenAPI::Modern::BEGIN@5 # spent 23µs making 1 call to warnings::unimport
6					sub openapi_document {
7					($_QUOTED,$_UNQUOTED) if 0;
8					# BEGIN quote_sub PRELUDE
9					package Method::Generate::Accessor::_Generated;
10					# spent 7µs within Method::Generate::Accessor::_Generated::BEGIN@10.263 which was called: # once (7µs+0s) by Sub::Quote::_clean_eval at line 15 BEGIN {
11	1	1µs			$^H = 1762;
12	1	1µs			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
13	1	4µs			%^H = (
14					);
15	1	51µs	1	7µs	} # spent 7µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@10.263
16					# END quote_sub PRELUDE
17					Carp::croak("openapi_document is a read-only accessor") if @_ > 1;
18					$_[0]->{"openapi_document"} }
19	1	1µs			$$_UNQUOTED = \&openapi_document;
20					}
21	1	5µs			1;
22
23					;